# Random Boot Screen for BootScreen using CSH
# and DoIcon.
# Can be placed in your Startup-Sequence
# EG.
#   Makedir >NIL: RAM:ENV
#   Assign >NIL: ENV: RAM:ENV
#   resident dh0:Applications/csh/csh add
#   DH0:Applications/CSH/csh -cLnN >NIL: DH0:Applications/CSH/RanBootPic.sh
#   DH0:C/BootScreen
#
# $VER: MagicExtract 1.0 15/1/95 Jonathan Benson
#
# Edit to suit your requirements.
#

set _histnum  @rnd( 0 )  #  @mix uses the variable _histnum to generate its
			 # so called `random' selection.
set _histnum  @strright( $_histnum 3 )
# NOTE: Do not allow the following line to exceed it's current length.
#       the randomness will be greatly reduced if you do.
#       I don't know why.  Probably a limit on the function @mix.
set BootPic  @mix( pvtnggrp.iff pvtng00k.iff pvxfile1.iff pvxfile6.iff xf_boot.iff xf_boot2.iff Workbench3929.iff )
set BootPic @strhead( " " $BootPic )
DH0:C2/DoIcon DH0:Prefs/BootScreen ctt=\042PIC=DH1:Pics/IFFS/$BootPic\042 num=3

# Thanks to Joseph Luk for BootScreen.
# and to Lars Eilebrecht for DoIcon.
# And of course to the following for CShell:
#     Shell V2.04 (C)Copyright 1986, Matthew Dillon, All Rights Reserved
#     Shell V2.04M-V2.07M by Steve Drew
#     Shell V2.08MI, V3.xxA and V4.xxA by Carlo Borreo & Cesare Dieni
#     Shell V5.xxL by U. Dominik Mueller
#     Shell V5.20+ by Andreas M. Kirchwitz
